* Adds current affiliation
program define addcuraff
gen curaff=""
label var curaff "Current affiliation as of 2021"
replace curaff="Boston Col" if person_id==271 //	Rui Albuquerque
replace curaff="Fed Res NY" if person_id==203 //	Joao Santos
replace curaff="U Col London" if person_id==456 // Pedro Carneiro
replace curaff="U Surrey" if person_id==78 // Mário Páscoa 
replace curaff="U Maryland" if person_id==408 // Nuno Limao
replace curaff="U Lisboa" if person_id==970 // Tiago Domingos
replace curaff="McGill U" if person_id==458 // Silvia Goncalves
replace curaff="U Virginia" if person_id==768 // Pedro Matos 
replace curaff="BdP/UCP" if person_id==100 // Pedro Teles 
replace curaff="U Porto" if person_id==1016 // Joao Correia da Silva 
replace curaff="U Pennsylvania" if person_id==379 // Joao F. Gomes
replace curaff="UCP" if person_id==146 // Teresa Lloyd Braga
replace curaff="U Nova" if person_id==1273 // Pedro Vicente 
replace curaff="U Oxford" if person_id==2254 // Pedro Bordalo
replace curaff="U Minho" if person_id==389 //  Linda Veiga
replace curaff="U St Andrews" if person_id==260 // Miguel Costa Gomes 
replace curaff="U Exeter" if person_id==1031 // Miguel Fonseca
replace curaff="U Minho" if person_id==1421 //	Ricardo Sousa
replace curaff="U Porto" if person_id==917  //	Óscar Afonso
replace curaff="U Lisboa" if person_id==709	 // António Afonso
replace curaff="George Mason U" if person_id==88 //	Nuno Garoupa
replace curaff="U Minho" if person_id==799 // Odd Rune Straume
replace curaff="U Lisboa" if person_id==2287 //	João Tovar Jalles
replace curaff="U Coimbra" if person_id==952 //	Tiago Neves Sequeira
replace curaff="New York U" if person_id==66 //	Luis Cabral
replace curaff="BdP/U Nova" if person_id==358 // Paulo M. M. Rodrigues
replace curaff="Loughborough U" if person_id==513 // Vitor Castro
replace curaff="U Surrey" if person_id==49  // João Santos Silva
replace curaff="U Minho" if person_id==170  //	Francisco Veiga
replace curaff="Col William & Mary" if person_id==4	 // Alfredo Marvão Pereira
replace curaff="Northwestern U" if person_id==116  // Sergio Rebelo
replace curaff="BdP/U Porto" if person_id==92 // Paulo Guimarães
replace curaff="U Nova" if person_id==491 // Duarte Brito
replace curaff="U Nova" if person_id==684 // Miguel Almeida Ferreira
replace curaff="BdP/U Nova" if person_id==870 // António Rua
replace curaff="Compass Lexecon/U Porto" if person_id==556 // Helder Vasconcelos
replace curaff="U Southern California" if person_id==450 //	António Bento
replace curaff="U CA, Berkeley" if person_id==912  // Sofia Villas-Boas
replace curaff="U Surrey" if person_id==575	// Guilherme Carmona
replace curaff="U Nova" if person_id==98 // Pedro Pita Barros
replace curaff="ISCTE" if person_id==404 // Joaquim Ramalho
replace curaff="Autoridade da Concorrência" if person_id==318 // Pedro Pereira
replace curaff="U Nova" if person_id==200 // Pedro Santa Clara
replace curaff="LSE" if person_id==466 // Ricardo Reis
replace curaff="U Nova" if person_id==59 // José Tavares
replace curaff="Inst Pol Lisboa/ISCTE" if person_id==985 // Orlando Gomes
replace curaff="U Nova" if person_id==391 // Steffen Hoernig
replace curaff="U Lisboa" if person_id==1204 //Paulo Bastos
replace curaff="CBS" if person_id==58 //José Mata
replace curaff="U Ca, Berkeley" if person_id==85 // Miguel Villas-Boas
replace curaff="LSE" if person_id==279 // Susana Mourato
replace curaff="BdP/U Nova" if person_id==99 // Pedro Portugal 
replace curaff="LBS" if person_id==541 // João Cocco
replace curaff="U Lisboa" if person_id==171 // Rui Baptista
replace curaff="U Porto" if person_id==4417 // Manuel Castelo Branco
replace curaff="LBS" if person_id==686 // Francisco Gomes
replace curaff="UNFAO" if person_id==765 // Paulo A L D Nunes
replace curaff="U Bristol/IFS" if person_id==742 // Mónica Costa Dias 
replace curaff="U Porto" if person_id==254 // Octavio Figueiredo 
replace curaff="U Lisboa" if person_id==1516 // Rui Cunha Marques  
replace curaff="U Nova" if person_id==57 // José Machado
replace curaff="U Stanford" if person_id==1981 // Inês Lima Azevedo
end
